Software 2000/Software 2000 Volume 1 (Disc 2 of 2).iso/demos/d014.dms/in.adf/autoexec.Amos/autoexec.amosSourceCode

AMOS Source Code | 1978-04-24 | 37.4 KB | 1,036 lines

Right$2.39733E-07 Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D
Right$Illegal_Constant_002A Amal Amal Amal Amal Amal Amal Amal Amal Amal Amal Amal Amal Amal Amal Extension_0_414D Extension_0_4F53 Extension_0_2044 Extension_0_454D Extension_0_4F20 Extension_0_5633 Extension_0_2120
Right$
Right$Illegal_Constant_002A Amal Amal Amal Amal Amal Amal Amal Amal Amal Amal Amal Amal Amal Extension_0_4259 Extension_0_2050 Extension_0_6574 Extension_0_6572 Extension_0_2048 Extension_0_6963 Extension_0_6B6D Extension_0_616E
Right$
Right$Illegal_Constant_003A Amal Amal Amal Amal Amal Amal Extension_0_4D75 Extension_0_7369 Extension_0_6320 Extension_0_636F Extension_0_6D70 Extension_0_6F73 Extension_0_6564 Extension_0_2061 Extension_0_6E64 Extension_0_2077 Extension_0_7269 Extension_0_7474 Extension_0_656E Extension_0_2062 Extension_0_7920 Extension_0_416C Extension_0_6C69 Extension_0_7374 Extension_0_6572 Extension_0_2042 Extension_0_7269 Extension_0_6D62 Extension_0_6C65
Right$
Right$Illegal_Constant_0048 Extension_0_2059 Extension_0_6F75 Extension_0_2063 Extension_0_616E Extension_0_6E6F Extension_0_7420 Extension_0_6368 Extension_0_616E Extension_0_6765 Extension_0_2074 Extension_0_6869 Extension_0_7320 Extension_0_6465 Extension_0_6D6F Extension_0_2C20 Extension_0_6275 Extension_0_7420 Extension_0_796F Extension_0_7520 Extension_0_6D61 Extension_0_7920 Extension_0_7669 Extension_0_6577 Extension_0_2069 Extension_0_7420 Extension_0_2869 Extension_0_7420 Extension_0_6973 Extension_0_2061 Extension_0_2062 Extension_0_6974 Extension_0_2075 Extension_0_6E74 Extension_0_6964 Extension_0_792D Amal
Right$Illegal_Constant_0044 Amal Amal Extension_0_2073 Extension_0_6F72 Extension_0_7279 Extension_0_2920 Extension_0_616E Extension_0_6420 Extension_0_796F Extension_0_7520 Extension_0_6D61 Extension_0_7920 Extension_0_7573 Extension_0_6520 Extension_0_736F Extension_0_6D65 Extension_0_206F Extension_0_6620 Extension_0_7468 Extension_0_6520 Extension_0_636F Extension_0_6D6D Extension_0_616E Extension_0_6473 Extension_0_2066 Extension_0_726F Extension_0_6D20 Extension_0_6469 Extension_0_7265 Extension_0_6374 Extension_0_206D Extension_0_6F64 Extension_0_652E Amal
Right$Illegal_Constant_0044 Amal Amal Extension_0_466F Extension_0_7220 Extension_0_6D6F Extension_0_7265 Extension_0_2069 Extension_0_6E66 Extension_0_6F72 Extension_0_6D61 Extension_0_7469 Extension_0_6F6E Extension_0_2070 Extension_0_6C65 Extension_0_6173 Extension_0_6520 Extension_0_6578 Extension_0_616D Extension_0_696E Extension_0_6520 Extension_0_7468 Extension_0_6520 Extension_0_7465 Extension_0_7874 Extension_0_2066 Extension_0_696C Extension_0_6520 Extension_0_6F6E Extension_0_2074 Extension_0_6869 Extension_0_7320 Extension_0_6469 Extension_0_736B Amal
Right$Illegal_Constant_003C Amal Amal Amal Amal Amal Amal Amal Amal Extension_0_6974 Extension_0_7320 Extension_0_6361 Extension_0_6C6C Extension_0_6564 Extension_0_2022 Extension_0_494D Extension_0_504F Extension_0_5254 Extension_0_414E Extension_0_545F Extension_0_5445 Extension_0_5854 Extension_0_5F46 Extension_0_494C Extension_0_452E Extension_0_4153 Extension_0_4322 Extension_0_2E20 Amal Amal Amal
Right$2.39733E-07 Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D Extension_0_2D2D
 Extension_0_1360
 Extension_0_0A44
 Extension_0_079E 0
 Extension_0_1C16
DISK$>"AMOS_DEMO:"
MEMORY> Extension_0_1ABA
NO_FAST_MEM>0
PASS>0
CONTROL>0
 Extension_0_0202
   NO_FAST_MEM> Extension_0_FFD6 1
    Extension_0_1360
 Extension_0_021E
 Extension_0_0194
    Extension_0_13F0 DISK$ Extension_0_FFCE "TITLEPAGE.IFF",0
    Extension_0_0834 0
   Set Dir
    Extension_0_07B2 0,, Extension_0_FFD6 211,,200
   Menu Key 0
   PICCYON_DOWN[0]
   BOUNCE[0]
    Extension_0_0F3C >0
    Extension_0_0202
      TUNE
      WAITSET[11700]
       Extension_0_1BEE
       Extension_0_1A9E 2
    Extension_0_021E
    Extension_0_0202
    Extension_0_0202
   WAITSET[600 Extension_0_FFD6 Extension_0_0F3C ]
    Extension_0_0784 2,320,200,2, Extension_0_09FC
    Extension_0_0834 2
    Extension_0_0AA0 : Extension_0_10B4 : Set Dir : Extension_0_091A 0
   Screen To Front 1,$FFF
    Extension_0_0CAE 4
   PAUSE[250]
   CREDITS
   TITLE_PAGE
   HARDSPRITE
   HOTDOG
   GIPPER
   STAR
   HARDSCROLL
   DUAL_PLAYFIELD
   OVERLAY
   CHANGE_FONTS
   PRICE
   PASS>1
 Extension_0_01A0 Extension_0_0EC2
 Extension_0_02EE
 Extension_0_02BA
    Extension_0_02E2 DISK$
    Extension_0_1A4A 2,77806
    Extension_0_1428 DISK$ Extension_0_FFCE "AMOS_MUSIC",2
    Extension_0_1BFE 2
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_0784 SCR,320,200,2, Extension_0_09FC
   Screen To Front 1,$FFF
    Extension_0_0AA0 : Extension_0_10B4 : Set Dir : Extension_0_091A 0
    Extension_0_09DA 2
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_079E 0 : Set Dir
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_02E2 CONTROL
   SET_UP_TEXT_SCREENS[0]
    Extension_0_091A 0
   MIDDLE["THE AMOS DEMO",25,1,1]
   MIDDLE["PROGRAMMING BY",60,1,0]
   MIDDLE["Peter Hickman",75,1,0]
   MIDDLE["MUSIC BY",105,1,0]
   MIDDLE["Allister Brimble",120,1,0]
    Extension_0_0CAE 0
   MIDDLE["IF YOU WOULD LIKE SOME CONTROL",155,1,0]
   MIDDLE["OVER THIS DEMO PRESS SPACE NOW",165,1,0]
   MIDDLE["There is an IMPORTANT text file",185,1,0]
   MIDDLE["on this disk, please read it.",195,1,0]
    Extension_0_0CAE 4
   APPEAR_5[2,0]
    Extension_0_0EFA
    Extension_0_0F3C >0
    Extension_0_0194
      TEMP> Extension_0_0440( Extension_0_00B8 )
    Extension_0_01A0 TEMP<=0 Extension_0_FF62 Extension_0_1816 <=0 Extension_0_FF62 Extension_0_0F3C <600
    Extension_0_0202
       Extension_0_091A 0
      MIDDLE["On some of the",40,1,0]
      MIDDLE["demonstrations you",65,1,0]
      MIDDLE["will be able to move",90,1,0]
      MIDDLE["some of the SPRITES or",115,1,0]
      MIDDLE["BOBS with the mouse.",140,1,0]
      APPEAR_3[2,0]
      WAITSET[300]
      CONTROL> Extension_0_FFD6 1
   Doscall
    Extension_0_021E
 Extension_0_02D4
 Extension_0_02BA
   SET_UP_TEXT_SCREENS[0]
    Extension_0_091A 0
   MIDDLE["Let your imagination",40,1,0]
   MIDDLE["take control and",65,1,0]
   MIDDLE["design the game",90,1,%0]
   MIDDLE["of your dreams.",115,1,%0]
   APPEAR_1[2,0]
   WAITSET[300]
    Extension_0_091A 0
   MIDDLE["Over 400 commands",40,1,0]
   MIDDLE["to unleash the raw power",65,1,0]
   MIDDLE["hidden inside your Amiga.",90,1,0]
   APPEAR_2[2,0]
   WAITSET[300]
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_02E2 DISK$
   SET_UP_TEXT_SCREENS[0]
    Extension_0_091A 0
   MIDDLE["By pushing your Amiga to",40,1,0]
   MIDDLE["its limit AMOS allows you",65,1,0]
   MIDDLE["to exceed the maximum",90,1,0]
   MIDDLE["amount of hardware",115,1,0]
   MIDDLE["SPRITES normally",140,1,0]
   MIDDLE["available to the user.",165,1,0]
   APPEAR_4[2,0]
    Extension_0_0F3C >0
    Extension_0_145C DISK$ Extension_0_FFCE "HARDSPRITE.ABK"
   WAITSET[400 Extension_0_FFD6 Extension_0_0F3C ]
   CLOSE_SCREENS
    Extension_0_0784 3,320,200,16, Extension_0_09FC
    Extension_0_0834 3
    Extension_0_0AA0 : Extension_0_10B4 : Extension_0_104A 0 : Set Dir : Extension_0_091A 0
    Extension_0_1686
    Extension_0_14A4 210
   SKATE$>"B:FR0=9T23(10,R0)NR0JB"
   BIKE$>"B:FR0=1T8(6,R0)NR0JB"
   GLIDE$>"B:FR0=24T29(10,R0)NR0JB"
   PLANE$>"B:FR0=30T33(2,R0)NR0JB"
   Menu Key 3 : Set Dir : Menu Tline
    Extension_0_0FE6 0,13
    Extension_0_1056 "SPRITE"
    Extension_0_1196 : Extension_0_1196
    Extension_0_1056 "NUMBER"
    Extension_0_0346 IMAGE_DATA
    Extension_0_0180
      Pop ProcX,Y,IMAGE
       Extension_0_156E LOP Extension_0_FFCE 20, Extension_0_095A(X), Extension_0_0972(3,Y),IMAGE : Screen Offset
       Extension_0_1934 LOP To Extension_0_156E 20 Extension_0_FFCE LOP
       Extension_0_0398 Set Line(18,17);LOP Extension_0_FFCE 1
       Extension_0_0202
       Extension_0_0202
       Extension_0_0202
       Extension_0_0202
      PAUSE[80]
   On Menu Off LOP
   PAUSE[200]
    Extension_0_0398 Set Line(17,15); Extension_0_044A(6);
    Extension_0_0398 Set Line(18,17); Extension_0_044A(3);
    Extension_0_0FE6 0,13
    Extension_0_1056 "ANIMATE!"
    Extension_0_18D0
   PAUSE[600]
    Extension_0_0FE6 0,13
    Extension_0_1056 "MOVE IT!"
    Extension_0_0180
      Close LOP,"M-260,0,200"
      Close LOP Extension_0_FFCE 1,"M260,0,200"
      Close LOP Extension_0_FFCE 2,"M-220,0,140"
      Close LOP Extension_0_FFCE 3,"M220,0,140"
   On Menu Off LOP
    Extension_0_1888
    Extension_0_17FA >450
   PAUSE[250]
    Extension_0_18B8
   Mkdir
    Extension_0_14BC
    Extension_0_14A4 16
    Extension_0_079E 3
   IMAGE_DATA:
    Extension_0_0332
    Extension_0_0332
    Extension_0_0332
    Extension_0_0332
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_02E2 NO_FAST_MEM,DISK$,CONTROL
   SET_UP_TEXT_SCREENS[0]
    Extension_0_091A 0
   MIDDLE["Software SPRITES (BOBS)",30,1,0]
   MIDDLE["are also available. Their",55,1,0]
   MIDDLE["size and range of colours",80,1,0]
   MIDDLE["are limited only by the",105,1,0]
   MIDDLE["amount of free memory!",130,1,0]
    Extension_0_0202
      MIDDLE["Use the mouse to control",155,1,0]
      MIDDLE["the giant hotdog.",180,1,0]
    Extension_0_021E
   APPEAR_3[2,0]
    Extension_0_0F3C >0
    Extension_0_145C DISK$ Extension_0_FFCE "HOTDOGSPRITES.ABK"
   WAITSET[400 Extension_0_FFD6 Extension_0_0F3C ]
    Extension_0_0202
       Extension_0_13F0 DISK$ Extension_0_FFCE "BACKGR.IFF",7
       Extension_0_0834 7
   Doscall
       Extension_0_0784 7,320,200,16, Extension_0_09FC
       Extension_0_0AA0 : Extension_0_10B4 : Extension_0_091A 0 : Set Dir
       Extension_0_1686
    Extension_0_021E
   CLOSE_SCREENS
   Inkey$
    Extension_0_0202
       Extension_0_17FA >50 : Extension_0_1808 >50
      HOTDOG$>"Begin: Let X=XS(7,XM) Let Y=YS(7,YM) Jump Begin"
   Doscall
      HOTDOG$>"B: Let X=50 M -300,0,100 L: Let X=360 M -600,0,200 J L"
    Extension_0_021E
   FASTLEFT$>"  Begin: Let X=360  Move -480,0,120  Jump Begin"
   SLOWLEFT$>"  Begin: Let X=360  Move -480,0,240  Jump Begin"
   MINILEFT$>"  Begin: Let X=360  Move -480,0,480  Jump Begin"
   FASTRIGHT$>" Begin: Let X=-120 Move 440,0,110   Jump Begin"
   SLOWRIGHT$>" Begin: Let X=-120 Move 440,0,220   Jump Begin"
   MINI$>"      Begin: Let X=-120 Move 440,0,440   Jump Begin"
   BANNERLEFT$>"Begin: Let X=360  Move -680,0,1360 Jump Begin"
   BANNERIGHT$>"Begin: Let X=-360 Move 680,0,1360  Jump Begin"
    Extension_0_0346 HOTDOG_POSITIONS
    Extension_0_0180
      Pop ProcX,Y,IMAGE
       Extension_0_1934 LOP To Extension_0_1664 LOP
       Extension_0_0202
          Extension_0_1664 LOP,X,Y,IMAGE,0
      Doscall
          Extension_0_1664 LOP,X,Y,IMAGE
       Extension_0_021E
   On Menu Off LOP
   Close 0,MINIRIGHT$
   Close 1,FASTLEFT$
   Close 2,SLOWLEFT$
   Close 3,MINILEFT$
   Close 4,FASTRIGHT$
   Close 5,SLOWRIGHT$
   Close 6,BANNERLEFT$
   Close 7,BANNERIGHT$
   Close 8,HOTDOG$
    Extension_0_1888
   Menu Key 7
   WAITSET[1334]
    Extension_0_1582
   Mkdir
    Extension_0_18B8
    Extension_0_079E 7
   HOTDOG_POSITIONS:
    Extension_0_0332
    Extension_0_0332
    Extension_0_0332
    Extension_0_0332
    Extension_0_0332
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_0784 3,320,200,16, Extension_0_09FC
    Extension_0_0AA0 : Extension_0_10B4
   Set Dir : Extension_0_091A 0
    Extension_0_1686
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_02E2 DISK$
   SET_UP_TEXT_SCREENS[0]
    Extension_0_091A 0
   MIDDLE["Software SPRITES (BOBS)",40,1,0]
   MIDDLE["can be used in many",65,1,0]
   MIDDLE["different ways.",90,1,0]
   APPEAR_1[2,0]
    Extension_0_0F3C >0
    Extension_0_145C DISK$ Extension_0_FFCE "GIPPER.ABK"
   WAITSET[200 Extension_0_FFD6 Extension_0_0F3C ]
   OPEN_GIPPER
   CLOSE_SCREENS
   Inkey$
    Extension_0_1598
   XSTART> Extension_0_FFD6 55
    Extension_0_0180
       Extension_0_0180
         PUT_GIPPER[IMAGE,XSTART]
         Proc XSTART,6
         PAUSE[10]
      On Menu Off IMAGE
   On Menu Off LOP
    Extension_0_0180
      Proc XSTART,4
      PUT_GIPPER[21,XSTART]
      PAUSE[10]
   On Menu Off LOP
    Extension_0_0180
       Extension_0_0180
         PUT_GIPPER[IMAGE,XSTART]
         PAUSE[10]
      On Menu Off IMAGE
   On Menu Off LOP
    Extension_0_0180
       Extension_0_0180
         PUT_GIPPER[IMAGE,XSTART]
         Proc XSTART,6
         PAUSE[10]
      On Menu Off IMAGE
   On Menu Off LOP
    Extension_0_079E 3
   SET_UP_TEXT_SCREENS[0]
    Extension_0_091A 0
   MIDDLE["There is no limit to the",40,1,0]
   MIDDLE["amount of images you can",65,1,0]
   MIDDLE["generate. By using just",90,1,0]
   MIDDLE["one BOB dozens can be",115,1,0]
   MIDDLE["displayed with ease.",140,1,0]
   APPEAR_3[2,0]
   WAITSET[400]
   OPEN_GIPPER
   Menu Mouse Off 3
    Extension_0_09DA 3
   CLOSE_SCREENS
   Inkey$
   XSTART> Extension_0_FFD6 315
    Extension_0_0180
       Extension_0_0180
         GIPPERS[IMAGE,XSTART]
         Proc XSTART,6
      On Menu Off IMAGE
   On Menu Off LOP
   GIPPERS[20,XSTART]
    Extension_0_0180
      Proc XSTART,4
      GIPPERS[21,XSTART]
   On Menu Off LOP
    Extension_0_0180
       Extension_0_0180
         GIPPERS[IMAGE,XSTART]
      On Menu Off IMAGE
   On Menu Off LOP
    Extension_0_0180
       Extension_0_0180
         GIPPERS[IMAGE,XSTART]
         Proc XSTART,6
      On Menu Off IMAGE
   On Menu Off LOP
    Extension_0_1582
   Vscroll
    Extension_0_079E 3
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_1664 1,XSTART,75,IMAGE,0
    Extension_0_15E0
    Extension_0_0868 : Screen Offset
    Extension_0_091A 0
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_0180
       Extension_0_0180
          Extension_0_1664 1,XSTART Extension_0_FFCE(X Extension_0_FFE8 25),Y,IMAGE,0
          Extension_0_15E0
      On Menu Off X
   On Menu Off Y
    Extension_0_0868 : Screen Offset
    Extension_0_091A 0
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_02E2 NO_FAST_MEM,DISK$,CONTROL
    Extension_0_052C PREV_ANI(15),PATH$(15)
   SET_UP_TEXT_SCREENS[0]
    Extension_0_091A 0
   MIDDLE["Collision detection in AMOS",30,1,0]
   MIDDLE["uses special masks.",55,1,0]
   MIDDLE["This method is very",80,1,0]
   MIDDLE["fast and gives 100%",105,1,0]
   MIDDLE["accuracy.",130,1,0]
   APPEAR_2[2,0]
   WAITSET[300]
    Extension_0_091A 0
   MIDDLE["Watch the balls in this",30,1,0]
   MIDDLE["next demo. They only",55,1,0]
   MIDDLE["change colour when in",80,1,0]
   MIDDLE["contact with a solid",105,1,0]
   MIDDLE["part of the large star.",130,1,0]
    Extension_0_0202
      MIDDLE["Use the mouse to",155,1,0]
      MIDDLE["control this star.",180,1,0]
    Extension_0_021E
   APPEAR_4[2,0]
    Extension_0_0202
    Extension_0_0F3C >0
    Extension_0_13F0 DISK$ Extension_0_FFCE "STAR.IFF",7
    Extension_0_0834 7
   WAITSET[400 Extension_0_FFD6 Extension_0_0F3C ]
   CLOSE_SCREENS
    Extension_0_16D4 1,66,0 To 319,179
   NUM>2
    Extension_0_0180
       Extension_0_0180
          Extension_0_16D4 NUM,LOP2 Extension_0_FFE8 15,LOP1 Extension_0_FFE8 15 To(LOP2 Extension_0_FFE8 15) Extension_0_FFCE 15,(LOP1 Extension_0_FFE8 15) Extension_0_FFCE 15
          Extension_0_0372 NUM
      On Menu Off LOP2
   On Menu Off LOP1
    Extension_0_16D4 1,69,0 To 319,179
    Extension_0_10B4
   Set Dir
    Extension_0_1780
    Extension_0_091A 0
   Inkey$
    Extension_0_1664 1,0,12,1,0
    Extension_0_0202
       Extension_0_17FA >0 : Extension_0_1808 >0
      STAR$>"Begin:  Let X=XS(7,XM) Let Y=YS(7,YM) Jump Begin"
   Doscall
      STAR$>"B: L X=0 L Y=0 M 50,10,50 "
      STAR$>STAR$ Extension_0_FFCE "M -50,0,25 L: M25,-10,25 M 25,10,25 "
      STAR$>STAR$ Extension_0_FFCE "M-25,10,25 M-25,-10,25 J L"
    Extension_0_021E
   BLUE$>"Loop: (0,2)(0,3)(0,4)(0,5)(0,6)(0,7)(0,8)(0,9)"
   BLUE$>BLUE$ Extension_0_FFCE "(0,10)(0,11)(0,12)(0,13)(0,14)(0,15) Jump Loop"
   RED$>"Loop: (0,16)(0,17)(0,18)(0,19),(0,20)(0,21)(0,22)(0,23)"
   RED$>RED$ Extension_0_FFCE "(0,24)(0,25)(0,26)(0,27)(0,28)(0,29) Jump Loop"
   PATH$(0)>"Begin: Let X=-10 Let Y=102 M 340,0,170"
   PATH$(0)>PATH$(0) Extension_0_FFCE " Let X=330 Let Y=20 M -360,100,140 Jump Begin"
   PATH$(1)>"Begin: Let X=330 Let Y=88 M -360,0,120"
   PATH$(1)>PATH$(1) Extension_0_FFCE " Let X=-20 Let Y=220 M 360,-240,180 Jump Begin"
   PATH$(2)>"Begin: Let X=330 Let Y=-20 M -360,240,100"
   PATH$(2)>PATH$(2) Extension_0_FFCE " Let X=-10 Let Y=-20 M 340,240,170 Jump Begin"
   PATH$(3)>"Begin: Let X=-20 Let Y=20 M 340,240,120"
   PATH$(3)>PATH$(3) Extension_0_FFCE " Let X=330 Let Y=90 M -360,0,180 Jump Begin"
   PATH$(4)>"Begin: Let X=280 Let Y=-20 M -200,240,120"
   PATH$(4)>PATH$(4) Extension_0_FFCE " Let X=-20 Let Y=180 M 340,-80,340 Jump Begin"
   OBJECTS>5
    Extension_0_0180
       Extension_0_1664 LOP Extension_0_FFCE 2,INITX,INITY,2,0
       Extension_0_1934 LOP To Extension_0_1664 LOP Extension_0_FFCE 2
   On Menu Off LOP
   Menu Key 7
    Extension_0_1934 15 To Extension_0_1664 1
   Close 15,STAR$
    Extension_0_1664 1,0,0,1
    Extension_0_0180
      Close LOP,PATH$(LOP)
       Extension_0_191A LOP,BLUE$
   On Menu Off LOP
    Extension_0_1888
    Extension_0_18D0
    Extension_0_0180
      PREV_ANI(LOP)> Extension_0_0EB8
   On Menu Off LOP
    Extension_0_0EFA
    Extension_0_0F3C >0
    Extension_0_0194
       Extension_0_0180
         HIT> Extension_0_1610(LOP)
         HIT> Extension_0_162C(1)
          Extension_0_0202
             Extension_0_18B8 LOP Extension_0_FFD6 2
             Extension_0_191A LOP Extension_0_FFD6 2,RED$
             Extension_0_18D0 LOP Extension_0_FFD6 2
            PREV_ANI(LOP)> Extension_0_0EC2
         Doscall
                Extension_0_18B8 LOP Extension_0_FFD6 2
                Extension_0_191A LOP Extension_0_FFD6 2,BLUE$
                Extension_0_18D0 LOP Extension_0_FFD6 2
               PREV_ANI(LOP)> Extension_0_0EB8
             Extension_0_021E
          Extension_0_021E
      On Menu Off LOP
      TEMP> Extension_0_0440( Extension_0_00B8 )
    Extension_0_01A0 Extension_0_0F3C <1334 Extension_0_FF62 Extension_0_1816 <=0 Extension_0_FF62 TEMP<=0
    Extension_0_1582
   Mkdir
    Extension_0_18B8
    Extension_0_079E 7
   Right$Illegal_Constant_0020 Extension_0_2053 Extension_0_6372 Extension_0_6565 Extension_0_6E20 Extension_0_4F70 Extension_0_656E Extension_0_2032 Extension_0_2C33 Extension_0_3230 Extension_0_2C32 Extension_0_3030 Extension_0_2C32 Extension_0_2C4C Extension_0_6F77 Extension_0_7265 Extension_0_7320
   Right$Illegal_Constant_0022 Amal Extension_0_466C Extension_0_6173 Extension_0_6820 Extension_0_4F66 Extension_0_6620 Extension_0_3A20 Extension_0_4375 Extension_0_7273 Extension_0_204F Extension_0_6666 Extension_0_203A Extension_0_2048 Extension_0_6964 Extension_0_6520 Extension_0_4F6E Amal
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_02E2 NO_FAST_MEM,DISK$
   SET_UP_TEXT_SCREENS[0]
    Extension_0_091A 0
   MIDDLE["Software and hardware",40,1,0]
   MIDDLE["scrolling are present in",65,1,0]
   MIDDLE["AMOS. Each type can be",90,1,0]
   MIDDLE["activated with a single",115,1,0]
   MIDDLE["command.",140,1,0]
   APPEAR_5[2,0]
   WAITSET[400]
    Extension_0_091A 0
   MIDDLE["It is possible to use",40,1,0]
   MIDDLE["both SPRITES and BOBS",65,1,0]
   MIDDLE["on any type of",90,1,0]
   MIDDLE["scrolling screen.",115,1,0]
   APPEAR_3[2,0]
    Extension_0_0F3C >0
    Extension_0_0202
   LANDSCAPE$>"B: L X=0 L R0=RA I R0=0 J B "
   LANDSCAPE$>LANDSCAPE$ Extension_0_FFCE "L: L X=X+R0 P If X=320 J B"
   LANDSCAPE$>LANDSCAPE$ Extension_0_FFCE "J L"
   SHIP$>"B: L RB=0 P P P M 100,0,25 L RB=1 P P P M 80,-80,20 L RB=2 "
   SHIP$>SHIP$ Extension_0_FFCE " P P P M 0,160,40 L RB=1 P P P M -80,-80,20 L RA=10 L RB=0 P P P "
   SHIP$>SHIP$ Extension_0_FFCE " M 100,0,25 M -140,0,140 L RB=0"
   SANI$>"B: I RB=0 J S I RB=1 J U I RB=2 J D J B"
   SANI$>SANI$ Extension_0_FFCE "S: (10,1)(10,2) J B"
   SANI$>SANI$ Extension_0_FFCE "U: (10,3)(10,4) J B"
   SANI$>SANI$ Extension_0_FFCE "D: (10,5)(10,6) J B"
   ALIENANI$>"B: (5,22)(5,23)(5,26)(5,27)(5,28)(5,29)(5,30) "
   ALIENANI$>ALIENANI$ Extension_0_FFCE " (5,31)(5,32) J B"
   ALIENANI2$>"B: (10,32)(10,31)(10,30)(10,29)(10,28)(10,27)"
   ALIENANI2$>ALIENANI2$ Extension_0_FFCE "(10,26)(10,23)(10,22) J B"
   ALIENMOVE$>"F R0=1 T 2 L X=440 M -400,0,50 N R0"
   ALIENMOVE2$>"F R0=1 T 2 L X=440 M -400,0,100 N R0"
   EXPLODE$>"FR0=13T21(7,R0)NR0(7,33)"
    Extension_0_0202
    Extension_0_0784 6,640,200,16, Extension_0_09FC
    Extension_0_0834 6
    Extension_0_0AA0 : Extension_0_10B4 : Set Dir
    Extension_0_091A 0
    Extension_0_07B2 6,,50,,199
    Extension_0_1934 0 To Extension_0_07D0 6
    Extension_0_1934 8 To Extension_0_156E 30
    Extension_0_145C DISK$ Extension_0_FFCE "SCROLLSPRITES.ABK"
    Extension_0_13F0 DISK$ Extension_0_FFCE "LANDSCAPE.IFF"
    Extension_0_091A 0,0,0 To 319,137
   Asin6,0,0,319,200 To 6,320,0
   WAITSET[300 Extension_0_FFD6 Extension_0_0F3C ]
   CLOSE_SCREENS
    Extension_0_1686
   Menu Key 6
    Extension_0_14A4 128
   Set Dir
    Extension_0_1942(0)>0
   Close 0,LANDSCAPE$
    Extension_0_0180
       Extension_0_1934 LOP To Extension_0_156E LOP Extension_0_FFCE 19
   On Menu Off LOP
    Extension_0_156E 20,90,120,1
   Close 1,SHIP$
    Extension_0_191A 1,SANI$
    Extension_0_0346 SLOW_SHIPS
    Extension_0_0180
      Pop ProcY
       Extension_0_156E 19 Extension_0_FFCE LOP,440,Y,22
       Extension_0_191A LOP,ALIENANI2$
      Close LOP,ALIENMOVE2$
       Extension_0_18D0 LOP
       Extension_0_1888 LOP
      PAUSE[20]
   On Menu Off LOP
    Extension_0_0346 FAST_SHIPS
    Extension_0_0180
      Pop ProcY
       Extension_0_156E 19 Extension_0_FFCE LOP,440,Y,22
       Extension_0_191A LOP,ALIENANI$
      Close LOP,ALIENMOVE$
       Extension_0_18D0 LOP
       Extension_0_1888 LOP
      PAUSE[30]
   On Menu Off LOP
    Extension_0_18D0 1
    Extension_0_1888 1
   PAUSE[600]
    Extension_0_1888 0
   PAUSE[600]
    Extension_0_1942(0)>20
   PAUSE[600]
    Extension_0_1942(0)>10
   PAUSE[400]
    Extension_0_1942(0)>5
   PAUSE[300]
    Extension_0_1942(0)>0
   PAUSE[230]
    Extension_0_1888 0
   PAUSE[40]
   Close 1,"M 120,0,20"
    Extension_0_156E 23,440,120,22
   Close 4,"M -160,0,20"
    Extension_0_1888 1
    Extension_0_1888 4
   PAUSE[70]
    Extension_0_14BC 23
    Extension_0_18B8 23
    Extension_0_156E 23,260,120,13
    Extension_0_191A 1,EXPLODE$
    Extension_0_18D0 1
   WAITSET[10]
    Extension_0_191A 4,EXPLODE$
    Extension_0_18D0 4
   PAUSE[400]
    Extension_0_14BC
    Extension_0_079E 6
    Extension_0_17FA >450
    Extension_0_14A4 16
   SLOW_SHIPS:
    Extension_0_0332
   FAST_SHIPS:
    Extension_0_0332
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_02E2 DISK$,NO_FAST_MEM
   SET_UP_TEXT_SCREENS[0]
    Extension_0_091A
   MIDDLE["AMOS allows up to",40,1,0]
   MIDDLE["eight screens to be",65,1,0]
   MIDDLE["displayed at any",90,1,0]
   MIDDLE["one time.",115,1,0]
   APPEAR_1[2,0]
   WAITSET[300]
    Extension_0_091A 0
   MIDDLE["Each screen can",40,1,0]
   MIDDLE["be manipulated in a",65,1,0]
   MIDDLE["variety of unusual ways.",90,1,0]
   APPEAR_4[2,0]
    Extension_0_0F3C >0
    Extension_0_079E 2
    Extension_0_0202
   HAMWINDOW$>"Begin: Let Y=-300 M 0,650,65 Jump Begin"
   BACKWINDOW$>"Begin: M 320,0,80 M -320,0,80 Jump Begin"
    Extension_0_13F0 DISK$ Extension_0_FFCE "AMOSPIC1.d3",5
    Extension_0_0834 5
    Extension_0_13F0 DISK$ Extension_0_FFCE "KEYKEEPER",6
    Extension_0_0834 6
   WAITSET[300 Extension_0_FFD6 Extension_0_0F3C ]
   CLOSE_SCREENS
   Menu Key 5
   Menu Key 6
    Extension_0_0784 7,640,8,2, Extension_0_09F0
    Extension_0_07B2 5,,45,,255
    Extension_0_0AA0 : Extension_0_10B4 : Set Dir
    Extension_0_104A 0 : Screen To Front 1,$FFF
    Extension_0_091A 0
    Extension_0_1056 "OVERLAPPING SCREENS WITH DIFFERENT SIZES, RESOLUTIONS AND COLOURS IS EASY"
    Extension_0_1934 0 To Extension_0_07B2 7
    Extension_0_1934 1 To Extension_0_07B2 6
    Extension_0_1934 2 To Extension_0_07D0 5
   Close 1,HAMWINDOW$
   Close 2,BACKWINDOW$
    Extension_0_1888
    Extension_0_0F3C >0
    Extension_0_0EFA
    Extension_0_0194
      Menu Mouse Off 7
       Extension_0_0180
          Extension_0_07B2 7,,LOP,,8
         Screen Offset
      On Menu Off LOP
      Menu Mouse Off 6
       Extension_0_0180
          Extension_0_07B2 7,,LOP,,8
         Screen Offset
      On Menu Off LOP
      TEMP> Extension_0_0440( Extension_0_00B8 )
    Extension_0_01A0( Extension_0_0F3C <2000) Extension_0_FF62( Extension_0_1816 <=0) Extension_0_FF62(TEMP<=0)
    Extension_0_079E 7
    Extension_0_079E 6
    Extension_0_079E 5
   Mkdir
   SET_UP_TEXT_SCREENS[2]
 Extension_0_02D4
 Extension_0_02BA
   SET_UP_TEXT_SCREENS[0]
    Extension_0_091A 0
    Extension_0_0CAE 4
   MIDDLE["AMOS is much more flexible",40,1,0]
   MIDDLE["then any other Amiga",65,1,0]
   MIDDLE["programming language.",90,1,0]
   APPEAR_4[2,0]
   WAITSET[200]
    Extension_0_091A 0
   MIDDLE["You can even use",40,1,0]
   MIDDLE["standard Deluxe Paint",65,1,0]
   MIDDLE["compatible fonts.",90,1,0]
   APPEAR_5[2,0]
   WAITSET[200]
    Extension_0_0180
       Extension_0_091A 0
       Extension_0_0F3C >0
       Extension_0_0CAE LOP
       Extension_0_0202
          Extension_0_0180
            MIDDLE["AMOS FONTS",LOP2,1,0]
         On Menu Off LOP2
         Asin2 To 0
         WAITSET[130 Extension_0_FFD6 Extension_0_0F3C ]
       Extension_0_021E
   On Menu Off LOP
   WAITSET[150]
    Extension_0_0CAE 4
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_02E2 DISK$,NO_FAST_MEM
   SET_UP_TEXT_SCREENS[0]
    Extension_0_091A 0
   MIDDLE["With AMOS you can easily",30,1,0]
   MIDDLE["utilise the unique Amiga",55,1,0]
   MIDDLE["dual playfield mode, which",80,1,0]
   MIDDLE["allows two screens to be",105,1,0]
   MIDDLE["overlayed on top of each",130,1,0]
   MIDDLE["each other.",155,1,0]
   APPEAR_3[2,0]
   WAITSET[300]
    Extension_0_091A 0
   MIDDLE["This allows you to create",30,1,0]
   MIDDLE["stunning parallax scrolling",55,1,0]
   MIDDLE["games like XENON II and",80,1,0]
   MIDDLE["SILKWORM.",105,1,0]
   APPEAR_2[2,0]
   WAITSET[300]
    Extension_0_0202
    Extension_0_088C
   FRONT$>"B:LX=1L:LX=X+2 PIX>320JBJL"
   BACK$>" B:LX=1L:LX=X+4 PIX>320JBJL"
   OPEN_LONG[6]
    Extension_0_13F0 DISK$ Extension_0_FFCE "DPLAY1.IFF"
   Asin6,0,0,320,200 To 6,320,0
   OPEN_LONG[7]
    Extension_0_13F0 DISK$ Extension_0_FFCE "DPLAY2.IFF"
   Asin7,0,0,320,200 To 7,320,0
    Extension_0_08A0
   Screen Offset
    Extension_0_0A08 6,7
    Extension_0_0346 DUAL_DATA
    Extension_0_09DA 6
    Extension_0_0180
      Pop ProcREG
      Screen To Front LOP,REG
   On Menu Off LOP
    Extension_0_1934 6 To Extension_0_07D0 6
    Extension_0_1934 7 To Extension_0_07D0 7
   Close 6,BACK$
   Close 7,FRONT$
    Extension_0_1888
   WAITSET[2000]
   Mkdir
    Extension_0_09DA 0 : Extension_0_091A 0
    Extension_0_079E 6
    Extension_0_079E 7
   DUAL_DATA:
    Extension_0_0332
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_0784 SCR,640,200,8, Extension_0_09FC
    Extension_0_0AA0 : Extension_0_10B4 : Set Dir : Extension_0_091A 0
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_02E2 DISK$
    Extension_0_145C DISK$ Extension_0_FFCE "LOGO.ABK"
    Extension_0_0784 0,320,200,16, Extension_0_09FC
    Extension_0_0AA0 : Extension_0_10B4 : Set Dir
    Extension_0_091A 0
    Extension_0_09DA 2
    Extension_0_091A 0
    Extension_0_0CAE 4
   MIDDLE["AMOS will be available in",25,1,0]
   MIDDLE["May for " Extension_0_FFCE Extension_0_0434(163) Extension_0_FFCE "49.95 from ",38,1,0]
    Extension_0_0CAE 0
   MIDDLE["FOR DETAILED SPECIFICATIONS",85,1,0]
   MIDDLE["WRITE TO:",95,1,0]
   MIDDLE["AMOS INFORMATION",105,1,0]
   MIDDLE["MANDARIN SOFTWARE",115,1,0]
   MIDDLE["EUROPA HOUSE, ADLINGTON PARK",125,1,0]
   MIDDLE["ADLINGTON, MACCLESFIELD",135,1,0]
   MIDDLE["SK10 4NP",145,1,0]
   MIDDLE["PHONE: [phone]",160,1,0]
   MIDDLE["Press space for more information",175,1,0]
   MIDDLE["Any other key",185,1,1]
   MIDDLE["restarts this demo.",195,1,1]
   APPEAR_1[2,0]
    Extension_0_09DA 0
    Extension_0_1686
   Screen To Front 1,$FFF
    Extension_0_1756 114,39,1
    Extension_0_09DA 2
    Extension_0_0F3C >0
    Extension_0_0194
      TEMP> Extension_0_0440( Extension_0_00B8 )
    Extension_0_01A0 Extension_0_1816 <=0 Extension_0_FF62 Extension_0_0F3C <1500 Extension_0_FF62 TEMP<=0
    Extension_0_1582
    Extension_0_0202
      ABOUT_EDITOR
      ABOUT_MUSIC
      ABOUT_SCREENS
      ABOUT_SPRITES
      ABOUT_AMAL
      ABOUT_ADVANCED
      ABOUT_MORE
      ABOUT_USES
    Extension_0_021E
 Extension_0_02D4
 Extension_0_02BA
   INFO_SET["ABOUT AMOS"]
    Extension_0_0C46 0,45,"-Edit programs in an advanced"
    Extension_0_0C46 0,55," user friendly environment."
    Extension_0_0C46 0,75,"-Have up to four programs and"
    Extension_0_0C46 0,85," many accessories in memory."
    Extension_0_0C46 0,105,"-Use the configurable function"
    Extension_0_0C46 0,115," key menu to access dozens of"
    Extension_0_0C46 0,125," often used commands."
    Extension_0_0C46 0,145,"-Port STOS programs from an ST"
    Extension_0_0C46 0,155," with relative ease."
    Extension_0_09DA 0
    Extension_0_091A 0
    Extension_0_09DA 2
   APPEAR_1[2,0]
   WAITSET[650]
 Extension_0_02D4
 Extension_0_02BA
   INFO_SET["SOUND"]
    Extension_0_0C46 0,45,"-Play up to four samples at once"
    Extension_0_0C46 0,55," while your program is running!!"
    Extension_0_0C46 0,75,"-Play interrupt driven music"
    Extension_0_0C46 0,85," created with SoundTracker, GMC"
    Extension_0_0C46 0,95," or use the advanced music"
    Extension_0_0C46 0,105," editor that comes with AMOS."
    Extension_0_0C46 0,125,"-Access the sound chip directly"
    Extension_0_0C46 0,135," with powerful commands."
   APPEAR_3[2,0]
   WAITSET[600]
 Extension_0_02D4
 Extension_0_02BA
   INFO_SET["SCREENS"]
    Extension_0_0C46 0,45,"-Load any type of IFF picture,"
    Extension_0_0C46 0,55," ie HAM, EHB and Dual Playfield."
    Extension_0_0C46 0,75,"-Have up to eight screens"
    Extension_0_0C46 0,85," displayed at any one time."
    Extension_0_0C46 0,105,"-Clone any screen to produce"
    Extension_0_0C46 0,115," spectacular multi-player games."
    Extension_0_0C46 0,135,"-Scroll a screen with a single"
    Extension_0_0C46 0,145," command."
   APPEAR_4[2,0]
   WAITSET[600]
 Extension_0_02D4
 Extension_0_02BA
   INFO_SET["SPRITES"]
    Extension_0_0C46 0,45,"-Professional sprite editor"
    Extension_0_0C46 0,55," allows the creation of gigantic"
    Extension_0_0C46 0,65," images."
    Extension_0_0C46 0,85,"-Display up to 400 hardware"
    Extension_0_0C46 0,95," sprites on one screen."
    Extension_0_0C46 0,115,"-Exceed the 4 colour hardware"
    Extension_0_0C46 0,125," sprite limitation."
    Extension_0_0C46 0,145,"-Grab and examine sprites from"
    Extension_0_0C46 0,155," your favourite games using the"
    Extension_0_0C46 0,165," special sprite grabber program."
   APPEAR_2[2,0]
   WAITSET[650]
 Extension_0_02D4
 Extension_0_02BA
   INFO_SET["AMAL"]
    Extension_0_0C46 0,45,"-Animate and move sprites,"
    Extension_0_0C46 0,55," Bobs and even whole screens"
    Extension_0_0C46 0,65," with the interrupt driven"
    Extension_0_0C46 0,75," AMos Animation Language (AMAL)."
    Extension_0_0C46 0,95,"-Display up to 64 animation"
    Extension_0_0C46 0,105," sequences."
    Extension_0_0C46 0,125,"-An easy-to-use AMAL editor"
    Extension_0_0C46 0,135," gives AMOS features absent"
    Extension_0_0C46 0,145," from many dedicated animation"
    Extension_0_0C46 0,155," packages."
   APPEAR_5[2,0]
   WAITSET[700]
 Extension_0_02D4
 Extension_0_02BA
   INFO_SET["ADVANCED FEATURES"]
    Extension_0_0C46 0,45,"-Directly modify the copper list,"
    Extension_0_0C46 0,55," giving complete control over"
    Extension_0_0C46 0,65," the building blocks which make"
    Extension_0_0C46 0,75," up all Amiga screens."
    Extension_0_0C46 0,95,"-Access all the Standard disc"
    Extension_0_0C46 0,105," functions without having to"
    Extension_0_0C46 0,115," open external libraries, AMOS"
    Extension_0_0C46 0,125," has them built in!"
    Extension_0_0C46 0,145,"-Use any standard Amiga font to"
    Extension_0_0C46 0,155," produce high quality displays."
    Extension_0_0C46 0,175,"-Add your own commands to AMOS"
    Extension_0_0C46 0,185," with a unique extension system."
   APPEAR_1[2,0]
   WAITSET[700]
 Extension_0_02D4
 Extension_0_02BA
   INFO_SET["MORE ADVANCED FEATURES"]
    Extension_0_0C46 0,45,"-Use procedures with parameter"
    Extension_0_0C46 0,55," passing and error detection."
    Extension_0_0C46 0,75,"-Create highly structured"
    Extension_0_0C46 0,85," programs with the IF-ENDIF"
    Extension_0_0C46 0,95," constructs."
    Extension_0_0C46 0,115,"-Commands unique to AMOS give"
    Extension_0_0C46 0,125," the system unparalled speed"
    Extension_0_0C46 0,135," in numerical processing."
   APPEAR_3[2,0]
   WAITSET[600]
 Extension_0_02D4
 Extension_0_02BA
   INFO_SET["USES FOR AMOS"]
    Extension_0_0C46 0,45,"-As an advanced development tool"
    Extension_0_0C46 0,55," for games."
    Extension_0_0C46 0,75,"-As a tool to develop"
    Extension_0_0C46 0,85," educational or utility"
    Extension_0_0C46 0,95," software."
    Extension_0_0C46 0,115,"-As a system to produce"
    Extension_0_0C46 0,125," animation within an academic"
    Extension_0_0C46 0,135," or commercial environment."
    Extension_0_0C46 0,155,"-As part of a video titling"
    Extension_0_0C46 0,165," system."
    Extension_0_0C46 0,185,"-As a teaching aid for advanced"
    Extension_0_0C46 0,195," level students."
   APPEAR_5[2,0]
   WAITSET[700]
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_091A 0
    Extension_0_0CAE 4
   MIDDLE[T$,20,1,1]
    Extension_0_0CAE 0
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_0180
   On Menu Off LOP
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_0F3C >0
    Extension_0_0EFA
    Extension_0_0194
      TEMP1> Extension_0_0440( Extension_0_00B8 )
    Extension_0_01A0 Extension_0_1816 <=0 Extension_0_FF62 TEMP1<=0 Extension_0_FF62 Extension_0_0F3C <T
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_09DA 2
   Shift Up 0
    Extension_0_0D40 C
    Extension_0_0C56 FLAG
   TEMP> Extension_0_0C12(T$)
   MIDDLE>(320 Extension_0_FFD6 TEMP) Extension_0_FFF0 2
    Extension_0_0C46 MIDDLE,Y,T$
 Extension_0_02D4
 Extension_0_02BA
   Menu Mouse Off DEST
    Extension_0_09DA DEST
   Menu Inactive SOURCE
    Extension_0_0180
      Y>LOP Extension_0_FFE8 2
      Y2>197 Extension_0_FFD6(Y Extension_0_FFD6 1)
      AsinSOURCE,0,Y,320,Y Extension_0_FFCE 2 To DEST,0,Y
      AsinSOURCE,0,Y2,320,Y2 Extension_0_FFCE 2 To DEST,0,Y2
      PAUSE[10]
   On Menu Off LOP
    Extension_0_09DA SOURCE
 Extension_0_02D4
 Extension_0_02BA
   Menu Mouse Off DEST
    Extension_0_09DA DEST
   Menu Inactive SOURCE
    Extension_0_0180
      X>LOP Extension_0_FFE8 2
      X2>317 Extension_0_FFD6(X Extension_0_FFD6 1)
      AsinSOURCE,X,0,X Extension_0_FFCE 2,200 To DEST,X,0
      AsinSOURCE,X2,0,X2 Extension_0_FFCE 2,200 To DEST,X2,0
      PAUSE[5]
   On Menu Off LOP
    Extension_0_09DA SOURCE
 Extension_0_02D4
 Extension_0_02BA
   Menu Mouse Off DEST
    Extension_0_09DA DEST
   Menu Inactive SOURCE
    Extension_0_0180
      X>LOP
      X2>318 Extension_0_FFD6(X Extension_0_FFD6 1)
      AsinSOURCE,X,0,X Extension_0_FFCE 1,200 To DEST,X,0
      AsinSOURCE,X2,0,X2 Extension_0_FFCE 1,200 To DEST,X2,0
   On Menu Off LOP
    Extension_0_09DA SOURCE
 Extension_0_02D4
 Extension_0_02BA
   Menu Mouse Off DEST
    Extension_0_09DA DEST
   Menu Inactive SOURCE
    Extension_0_0180
       Extension_0_0180
         AsinSOURCE,(X Extension_0_FFD6 Y) Extension_0_FFE8 16,Y Extension_0_FFE8 10,(X Extension_0_FFD6 Y Extension_0_FFCE 1) Extension_0_FFE8 16,(Y Extension_0_FFCE 1) Extension_0_FFE8 10 To DEST,(X Extension_0_FFD6 Y) Extension_0_FFE8 16,Y Extension_0_FFE8 10
      On Menu Off Y
   On Menu Off X
    Extension_0_09DA SOURCE
 Extension_0_02D4
 Extension_0_02BA
   Menu Mouse Off DEST
    Extension_0_09DA DEST
   Menu Inactive SOURCE
   XAXIS>20
   YAXIS>20
   XMID>10
   YMID>10
    Extension_0_0180
      C>Y
       Extension_0_0180
          Extension_0_0202
            AsinSOURCE,X Extension_0_FFE8 16,(YMID Extension_0_FFD6 C) Extension_0_FFE8 10,(XAXIS Extension_0_FFD6 X) Extension_0_FFE8 16,(YMID Extension_0_FFCE C) Extension_0_FFE8 10 To DEST,X Extension_0_FFE8 16,(YMID Extension_0_FFD6 C) Extension_0_FFE8 10
          Extension_0_021E
          Extension_0_037C C
      On Menu Off X
   On Menu Off Y
    Extension_0_09DA SOURCE
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_0180
       Extension_0_07B2 SCR,,Y,,200
      Screen Offset
   On Menu Off
 Extension_0_02D4
 Extension_0_02BA
    Extension_0_0180
       Extension_0_0180
          Extension_0_07B2 SCR,,50 Extension_0_FFD6 LOP1,,200
         Menu Tline
         Screen Offset
      On Menu Off LOP1
       Extension_0_0180
          Extension_0_07B2 SCR,,50 Extension_0_FFD6 LOP2,,200
         Menu Tline
         Screen Offset
      On Menu Off LOP2
   On Menu Off LOP
    Extension_0_07B2 0,,50,,200
   Menu Tline